home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-04
/
shazam11.zip
/
DEMOC4.EVT
< prev
next >
Wrap
Text File
|
1991-11-04
|
809b
|
33 lines
{===================================================================
SHELL to DOS
===================================================================}
procedure heDosShell ;
var
UsingBuffers : boolean ;
begin
UsingBuffers := BufHeapEnd > 0 ;
DoneSysError ;
DoneEvents ;
DoneVideo ;
DoneMemory ;
if UsingBuffers then
SetMemTop ( Ptr ( BufHeapPtr , 0 ) )
else
SetMemTop ( HeapPtr ) ;
PrintStr ( 'Type ''EXIT'' to return...' ) ;
SwapVectors ;
Exec ( GetEnv ( 'COMSPEC' ) , '' ) ;
SwapVectors ;
if UsingBuffers then
SetMemTop ( Ptr ( BufHeapEnd , 0 ) )
else
SetMemTop ( HeapEnd ) ;
InitMemory ;
InitVideo ;
InitEvents ;
InitSysError ;
Application^.Redraw ;
end ;